setwd("/data1/bsi/BORA_processing/devel/data_HTHGU/NormSumSrc/input")
library(affy,lib.loc="/data1/bsi/BORA_processing/devel/data_HTHGU/NormSumSrc/HGUPLUS2_GeneSumm_batch_V1/bin/bin_HGUA/rlib/")
library(simpleaffy,lib.loc="/data1/bsi/BORA_processing/devel/data_HTHGU/NormSumSrc/HGUPLUS2_GeneSumm_batch_V1/bin/bin_HGUA/rlib/")
library(frma,lib.loc="/data1/bsi/BORA_processing/devel/data_HTHGU/NormSumSrc/HGUPLUS2_GeneSumm_batch_V1/bin/bin_HGUA/rlib/")
library(hgu133plus2frmavecs, lib.loc="/data1/bsi/BORA_processing/devel/data_HTHGU/NormSumSrc/HGUPLUS2_GeneSumm_batch_V1/bin/bin_HGUA/rlib/")
data(hgu133plus2frmavecs)
data<-ReadAffy()
frma<-frma(data, summarize = "robust_weighted_average")
bar<-barcode(frma,platform="GPL570")
write.table(bar,"/data1/bsi/BORA_processing/devel/data_HTHGU/NormSumSrc/input/barcode.txt",sep="\t",quote=FALSE)
